# name : freq overallrisk diff (prop diff)
# key : freq.commonriskdiff.propdiff
# contributor: Shuguang Sun
# --
ods output commonpdiff=${6:commonpdiff} (keep=column method value stderr lowercl uppercl);
proc freq data=${1:dtin};
table $0${4:stra} * ${2:trt} * ${3:response} / commonriskdiff(cl=${5:$$(yas-choose-value '("MH" "MR" "MINRISK" "NEWCOMBE" "NEWCOMBEMR" "SCORE"))}${6: correct=NO})${7: printwts<=(MH | MR)> test=${8:$$(yas-choose-value '("MH" "MR" "MINRISK" "SCORE")) crosslist(stdres) deviation expected};
run;
